xx <- seq(12, by=-8, length.out = 17)
plot(xx %% 14, col=rainbow(6), pch=22,cex=c(2,3,4), xlab="", ylab="")
